home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-3.dxr / 00039.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  995 b   |  41 lines
  1. on mouseUp
  2.   global bVideoNormal, nVr
  3.   if rollOver(11) then
  4.     if bVideoNormal then
  5.       set sApa to "Fd_Bt_A/2"
  6.     else
  7.       set sApa to "Fd_Bt_A/2"
  8.     end if
  9.     set the member of sprite 11 to member sApa of castLib "elementos graficos"
  10.     puppetSprite(11, 0)
  11.     updateStage()
  12.     set bVideoNormal to not bVideoNormal
  13.     if not bVideoNormal then
  14.       set the visible of sprite 5 to 0
  15.       updateStage()
  16.       set the visible of sprite 5 to 1
  17.     end if
  18.     go("vr" & nVr & bVideoNormal)
  19.   end if
  20. end
  21.  
  22. on mouseDown
  23.   global bVideoNormal
  24.   if bVideoNormal then
  25.     set sApa to "Fd_Bt_A/2"
  26.     set sIlu to "Fd_Bt_B/2"
  27.   else
  28.     set sApa to "Fd_Bt_A/2"
  29.     set sIlu to "Fd_Bt_B/2"
  30.   end if
  31.   repeat while the stillDown
  32.     puppetSprite(11, 1)
  33.     if rollOver(11) then
  34.       set the member of sprite 11 to member sIlu of castLib "elementos graficos"
  35.     else
  36.       set the member of sprite 11 to member sApa of castLib "elementos graficos"
  37.     end if
  38.     updateStage()
  39.   end repeat
  40. end
  41.